home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 17
/
CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso
/
CUCD
/
Graphics
/
SViewNG
/
ARexx-Scripts
/
ConvertAnyFile.rx
next >
Wrap
Text File
|
1997-09-28
|
1KB
|
70 lines
/*
$VER: ConvertAnyFile.rx V7.16 (21.7.97)
© 1993-97 by Andreas R. Kleinert
This script demonstrates loading, saving (converting) and
displaying files by using SViewNG's ARexxPort.
USAGE: RX ConvertAnyFile InFile OutFile
*/
parse arg sourcefile destfile
sourcefile = strip(sourcefile)
destfile = strip(destfile)
address command
SViewNG "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
say ""
say "ARexx: SViewNG has been started : Waiting a moment..."
wait 5
OPTIONS RESULTS
SIGNAL ON ERROR
SVNGPORT = 'SViewNG.rx'
SVPORT = 'SuperView.rx'
IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
IF ~SHOW('P',SVPORT) THEN DO
say "Could not locate ARexx port of SViewNG !"
CALL ErrorOut 0
END
ADDRESS VALUE SVPORT
say "ARexx: Loading a PCX Graphics via the LOAD command"
'LOAD='||sourcefile
say "ARexx: Saving Graphics as IFF ILBM"
'SAVE_TYPE=ILBM CmpByteRun1'
'SAVE='||destfile
address command wait 3
say "ARexx: Load this ILBM Gfx now for control"
'SHOW='||destfile
say "ARexx: O.K. : Let's quit !"
address command Wait 2
'QUIT'
CALL ErrorOut 0
/* Errorout procedure ----------------------- */
ErrorOut:
PARSE ARG ExitCode
EXIT ExitCode
END